home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / MacApp Text Editor / MDemoText.p < prev    next >
Encoding:
Text File  |  1986-12-29  |  654 b   |  38 lines  |  [TEXT/MPS ]
  1. {Copyright © 1986 by Apple Computer, Inc.  All Rights Reserved.}
  2.  
  3. PROGRAM DemoText;
  4.  
  5. USES
  6.     {$LOAD MacIntf.LOAD}
  7.         MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf,
  8.     {$LOAD UMacApp.LOAD}
  9.         UObject, UList, UMacApp,
  10.     {$LOAD}
  11.  
  12.     UPrinting,
  13.  
  14.     UTEView,
  15.  
  16.     UDemoText;
  17.  
  18.  
  19. VAR
  20.     gDemoTextApplication:    TDemoTextApplication;
  21.  
  22.  
  23. {$S ARes}
  24. PROCEDURE InAResSegment;
  25.  
  26. BEGIN
  27. END;
  28.  
  29. {$S Main}
  30. BEGIN
  31.     InitToolbox(8);             {Initialize the ToolBox, 8 calls to MoreMasters}
  32.     InitPrinting;                {Initialize the Printing unit}
  33.     SetResidentSegment(GetSegNumber(@InAResSegment), TRUE);
  34.     New(gDemoTextApplication);
  35.     gDemoTextApplication.IDemoTextApplication;
  36.     gDemoTextApplication.Run;
  37. END.
  38.